00050 ARRAY F1,F2(512); 00100 SRATE←25000; 00200 MAG←512/SRATE; 00300 COMPILE;INSTRUMENT FOO; 00400 INTRP(P5*P6*MAG,P5*P7*MAG,F2); 00500 OSCIL(U1,P5*MAG,F1); 00600 ZOSCIL(P3,P4*MAG+U2,F1); 00700 OUTA←OUTA+U3;END;FINISH; 00800 SYNTH(F1);1,1,999 00900 SEG(F2);0,1,1,100 01000 <RCDFLG←-1; 01050 BIGBIT←1; 01100 PLAY;FOO 0 1 2000 100 100 0 10;FINISH;